home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
Xteq X-Setup
/
xqdcXSP-Setup-EN.exe
/
{app}
/
plugins
/
XQ Desktop Icon Colors.xpl
< prev
next >
Wrap
Text File
|
2003-11-19
|
2KB
|
69 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="7"
"COUNT"="5"
"UIPATH 1"="Appearance\Interface\Icons"
"NAME"="Icon Colors"
"VERSION"="1.01"
"LANGUAGE"="VBScript"
"OSVERSION"="0111111"
"TEXT 1"="16 Colors"
"TEXT 2"="256 Colors (default for pre-XP)"
"TEXT 3"="65K Colors (default for XP and above)"
"TEXT 4"="16 Million Colors"
"TEXT 5"="True Color"
"DESCRIPTION 1"="This setting can be used to change how many colors Windows will use when "
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com/"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="More Information: http://www.jsifaq.com/SUBA/tip0400/rh0497.htm"
sV="HKCU\Control Panel\Desktop\WindowMetrics\Shell Icon BPP" 'STRING
' Value Colors
' 4 16
' 8 256
' 16 65536
' 24 16 million
' 32 True Color
Sub Plugin_Initialize
i=RegReadValue(sV)
if IsNumeric(i) then
Select Case i
Case 4
SetUIElement 1,true
Case 8
SetUIElement 2,true
Case 16
SetUIElement 3,true
Case 24
SetUIElement 4,true
Case 32
SetUIElement 5,true
End Select
end if
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
i=0
if GetUIElement(1)=true then i=4
if GetUIElement(2)=true then i=8
if GetUIElement(3)=true then i=16
if GetUIElement(4)=true then i=24
if GetUIElement(5)=true then i=32
if i>0 then
Call RegWriteValue(sV,i,1)
Call IndicateSettingChange()
Call Logoff()
end if
End Sub
Sub Plugin_Terminate
End Sub